home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1988 April
/
1988-04.d64
/
demo 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
427b
|
17 lines
5 poke50913,1:poke50959,1:poke50918,0:poke50964,0:poke50923,0:poke50969,0
10 poke53281,6:print"";:@3:@2
20 @4,20,50:@7,20,150,0
30 @4,300,50:@7,300,150,0
50 ph=(NULL)*3/4
60 forj=0to31
70 ag=(NULL)*j/16
80 y1%=cos(ag)*50+100:y2%=cos(ag+ph)*50+100
90 @4,20,y1%:@7,300,y2%,0
100 nextj
110 @4,0,0:@7,319,0,0:@7,319,199,0:@7,0,199,0:@7,0,0,0
115 fori=0to2500:nexti
120 print"[147]print twist pattern (y/n)?":@1
130 getc$:if(c$="")goto130
140 if(c$<>"y")thenprint"[147]":end
150 @2:@14:print"[147]":@1:end